::Zona Menus (Programado por Cruz)
@ECHO OFF
set titulo= ----- Bienvenido a Regconfig, herramienta de modificacion del registro. -----
:user
cls

echo.
echo %titulo%
echo.


set /p usuario= Introduzca el nombre de usuario:
if %usuario%x==x goto :nouser
if %usuario%== admin goto :password
if %usuario%== exit goto :fin

:nouser
echo Usuario incorrecto introduzca un usuario valido, 
echo si desea salir escriba exit.
pause
cls
goto :user

:nopass
echo No ha introducido ninguna password valida,
echo por favor introduzcala, si desea salir escriba exit.
pause
cls
echo %titulo%

:password
echo.
set /p id= Introduzca la password:
if %id%x==x goto :nopass
if %id%==12345 goto :opciones
if %id%==exit goto :fin
goto :nopass


:opciones
cls
set opc=
echo.
type Archivos\txt\menu.txt
type Archivos\txt\pag.txt  
type Archivos\txt\menu.txt

echo.
set opc=
set ayu=
set /p opc=Elija una opcion:

if %opc%==H1 set ayu=1
if %opc%==H2 set ayu=2
if %opc%==H3 set ayu=3
if not %ayu%x==x goto :Hayu
if %opc%x==x goto :error
if %opc%==exit goto :fin
set pag=pag%opc%.txt
if not exist Archivos\txt\pag%opc%.txt goto :error

:op
if %opc%x==x goto :error
if %opc%==ant goto :opciones
if %opc%==exit goto :fin
if %opc%==1 goto :apa
if %opc%==2 goto :mant
if %opc%==3 goto :sist


goto :error

:Hayu
cls
type Archivos\txt\menu.txt
type Archivos\txt\H%ayu%.txt  
type Archivos\txt\menu.txt
pause
goto :opciones

:apa
::Zona apariencia Torrello
echo.
call Archivos\torrello\torrello
goto :op

:mant
::Zona mantenimiento Cruz
echo.
call Archivos\cruz\cruz
goto :op

:sist
::Zona sistema Font
echo.
call Archivos\font\font
goto :op



:fin

set usuario=
set id=
set opc=
echo Va aproceder a salir..
pause
goto :eof

:error
echo Seleccione una opcion valida...
pause
goto :opciones


